home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dialog / dialog.bas < prev    next >
BASIC Source File  |  1994-10-18  |  570b  |  22 lines
  1. Option Explicit
  2. Global akRetVal As Integer
  3.  
  4.  
  5. Sub akMsgbox (pText As String, pWhat As Integer, pCap As String)
  6.     frmMyDialog.Tag = Trim$(pText) & "," & Format$(pWhat, "###0") & "," & Trim$(pCap)
  7.     DoEvents
  8.     frmMyDialog.Show
  9. End Sub
  10.  
  11. Function akMsgBoxF (pText As String, pWhat As Integer, pCap As String) As Integer
  12.     frmMyDialog.Tag = Trim$(pText) & "," & Format$(pWhat, "###0") & "," & Trim$(pCap)
  13.     frmMyDialog.Show
  14.     DoEvents
  15.     akRetVal = 0
  16.     Do While akRetVal = 0
  17.         DoEvents
  18.     Loop
  19.     akMsgBoxF = akRetVal
  20. End Function
  21.  
  22.